home *** CD-ROM | disk | FTP | other *** search
- on mouseDown
- global gBoutons, gNumSpr, g1erSprLoc
- set gNumSpr to g1erSprLoc + 1
- gBoutons(appuie, gNumSpr)
- end
-
- on MouseClick
- global gNumSpr, gBoutons, gScopeDe
- if word 1 of the name of cast the castNum of sprite gNumSpr = "BTGPOS" then
- gBoutons(habille, gNumSpr, "BTGAVN 1")
- puppetSprite(gNumSpr, 1)
- gScopeDe(SetCadence, 0)
- else
- gBoutons(habille, gNumSpr, "BTGPOS 1")
- puppetSprite(gNumSpr, 1)
- gScopeDe(SetCadence, 1)
- end if
- end
-
- on mouseUp
- global gBoutons, gNumSpr, g1erSprLoc, gSurvolPrec
- curseur(1)
- set monNumSpr to g1erSprLoc + 1
- if gNumSpr = monNumSpr then
- MouseClick()
- else
- pass()
- end if
- set gSurvolPrec to -1
- updateStage()
- end
-